home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dflow.arc / CUSTMOD.PRG < prev    next >
Text File  |  1985-04-08  |  425b  |  23 lines
  1. set talk off
  2. clear
  3. store t to working
  4. Do while working
  5. store 0 to recnum
  6. @ 10,20 say "record number" get recnum
  7. read
  8. if recnum < 1
  9.      return
  10.    else
  11.      goto bottom
  12.      If recnum > recno()
  13.     @ 12,20 say "last record is"
  14.     @ 12,35 say recno()
  15.     @ 14,20 say "press return if you don't want to modify"
  16.       else
  17.        goto recnum
  18.        do custent
  19.        store f to working
  20.      endif
  21.  endif
  22. enddo
  23. P